# Title     : TODO
# Objective : TODO
# Created by: yz
# Created on: 2018/4/28
library(plotly)
library(htmlwidgets)
library(webshot)
p <- plot_ly(midwest, x = ~ percollege, color = ~ state, type = "box")



